home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / gfx / conv / mpeg_v1_2a.lha / yuv2iff < prev   
AmigaDOS Script File  |  1993-09-03  |  487b  |  25 lines
  1. .key base/a,from/a,to/a,width/a,height/a
  2. .bra {
  3. .ket }
  4.  
  5. echo >env:mpic2iff {from}
  6.  
  7. lab start_loop
  8.  
  9. echo "*NProcessing... {base}$mpic2iff.[YUV]*N"
  10.  
  11. cyuv2ppm {base}$mpic2iff ram:mpic_temp -iw {width} -ih {height}
  12. ppmtoilbm >{base}$mpic2iff.iff -hamif ram:mpic_temp
  13. delete "{base}$mpic2iff.?"
  14. delete ram:mpic_temp quiet
  15.  
  16. eval >NIL: $mpic2iff + 1 TO=t:temp
  17. type >env:mpic2iff t:temp
  18.  
  19. if VAL $mpic2iff NOT GT {to}
  20.   skip start_loop back
  21. endif
  22.  
  23. delete env:mpic2iff t:temp quiet
  24. echo "*NDone!"
  25.